home *** CD-ROM | disk | FTP | other *** search
/ Libris Britannia 4 / science library(b).zip / science library(b) / PROGRAMM / DB_CLIPP / 0669.ZIP / SECTIMER.PRG < prev    next >
Text File  |  1987-04-01  |  1KB  |  28 lines
  1. * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
  2. * Program.:  SECTIMER.PRG                                               *
  3. * Author..:  Juan L. Romero                                             *
  4. * Date....:  April 1, 1987.                                             *
  5. * Notes...:  Sub-routine for SECURE.PRG (Keeps track of user's exit on  *
  6. *            dBASE III                                                  *
  7. * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
  8.  
  9.   RESTORE FROM securent ADDITIVE
  10.   RESTORE FROM secfiles ADDITIVE
  11.  
  12.     STORE itime TO t1
  13.     STORE TIME() TO t2
  14. es=(VAL(t2)*3600+VAL(SUBSTR(t2,4))*60+VAL(SUBSTR(t2,7)));
  15.    -(VAL(t1)*3600+VAL(SUBSTR(t1,4))*60+VAL(SUBSTR(t1,7)))
  16. et=SUBSTR(STR(INT(es/3600)+100,3),2)+' hrs '+;
  17.      SUBSTR(STR(INT(es/60)-(INT(es/3600)*60)+100,3),2)+' min '+;
  18.      SUBSTR(STR(es-(INT(es/60)*60)+100,3),2)+' sec'
  19.     STORE "OUT" TO istatus
  20.  USE &write
  21.     APPEND BLANK
  22.     REPLACE out_time WITH t2,status WITH istatus
  23.     REPLACE sys_time WITH et,date WITH DATE()
  24.  CLEAR ALL
  25.  RETURN
  26.  
  27. *  END-OF-SUBROUTINE
  28.